home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / grafik / lupecolo / conladen.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1980-12-30  |  6.8 KB  |  254 lines
  1. DEFMOUSE 0
  2. DIM muster#(16)
  3. FOR x#=2 TO 15
  4.   muster#(x#)=x#-1
  5. NEXT x#
  6. CLS
  7. SGET screen2$
  8. BOX 10,10,120,30
  9. TEXT 15,27,103,"LADEN"
  10. BOX 10,40,120,60
  11. TEXT 15,57,103,"MUSTER"
  12. BOX 10,70,120,90
  13. TEXT 15,87,103,"NEU ZEICHNEN"
  14. BOX 10,100,120,120
  15. TEXT 15,117,103,"SICHERN"
  16. BOX 10,130,120,150
  17. TEXT 15,147,103,"ANSEHEN"
  18. SGET titel$
  19. REPEAT
  20.   SPUT titel$
  21.   check#=0
  22.   REPEAT
  23.   UNTIL MOUSEK<>0
  24.   IF check#=0 AND check2#=1 AND MOUSEX>10 AND MOUSEX<120 AND MOUSEY>130 AND MOUSEY<150 THEN
  25.     check#=1
  26.     SPUT screen2$
  27.     REPEAT
  28.     UNTIL MOUSEK=0
  29.     REPEAT
  30.     UNTIL MOUSEK<>0
  31.   ENDIF
  32.   IF check#=0 AND check2#=1 AND MOUSEX>10 AND MOUSEX<120 AND MOUSEY>100 AND MOUSEY<120 THEN
  33.     SPUT screen2$
  34.     check#=1
  35.     FILESELECT "A:\*.PIC","",pic$
  36.     IF pic$<>"" THEN
  37.       BSAVE pic$,XBIOS(2),32000
  38.     ENDIF
  39.   ENDIF
  40.   IF check#=0 AND check2#=1 AND MOUSEX>10 AND MOUSEX<120 AND MOUSEY>70 AND MOUSEY<90 THEN
  41.     ALERT 2,"WIE SOLL DAS BILD|GEZEICHNET WERDEN",2,"KLEIN|GROß",kgb#
  42.     BOUNDARY 0
  43.     check#=1
  44.     GRAPHMODE 1
  45.     SPUT screen2$
  46.     FOR xload#=0 TO xachse#
  47.       FOR yload#=0 TO yachse#
  48.         IF punkte#(xload#,yload#)=0 THEN
  49.           DEFFILL 0
  50.         ENDIF
  51.         IF punkte#(xload#,yload#)=1 THEN
  52.           DEFFILL 1,1
  53.         ENDIF
  54.         IF punkte#(xload#,yload#)>1 THEN
  55.           DEFFILL 1,2,muster#(punkte#(xload#,yload#))
  56.         ENDIF
  57.         IF xload#>0 OR yload#>0 THEN
  58.           IF yload#=0 THEN
  59.             punkte#(xload#,yload#)=punkte#(xload#-1,yachse#)
  60.           ELSE
  61.             punkte#(xload#,yload#)=punkte#(xload#,yload#-1)
  62.           ENDIF
  63.         ENDIF
  64.         GRAPHMODE 1
  65.         IF kgb#=2 THEN
  66.           PBOX xload#*2,yload#*2,(xload#*2)+1,(yload#*2)+1
  67.         ELSE
  68.           PBOX xload#,yload#,xload#,yload#
  69.         ENDIF
  70.       NEXT yload#
  71.     NEXT xload#
  72.     IF kgb#=2 THEN
  73.       GET 0,0,xachse#*2,yachse#*2,k_bild$
  74.     ELSE
  75.       GET 0,0,xachse#,yachse#,k_bild$
  76.     ENDIF
  77.     SPUT screen2$
  78.     GRAPHMODE 3
  79.     REPEAT
  80.       mx2#=MOUSEX
  81.       my2#=MOUSEY
  82.       PUT mx2#,my2#,k_bild$,6
  83.       REPEAT
  84.         testx#=MOUSEX
  85.         testy#=MOUSEY
  86.         EXIT IF MOUSEK=2
  87.       UNTIL testx#<>mx2# OR testy#<>my2# OR MOUSEK<>0
  88.       PUT mx2#,my2#,k_bild$,6
  89.     UNTIL MOUSEK=1 OR MOUSEK=2
  90.     GRAPHMODE 1
  91.     IF MOUSEK=1
  92.       PUT mx2#,my2#,k_bild$
  93.     ENDIF
  94.     SGET screen2$
  95.     GRAPHMODE 1
  96.     DEFMOUSE 0
  97.     DEFFILL 1
  98.     COLOR 1
  99.   ENDIF
  100.   IF check#=0 AND MOUSEX>10 AND MOUSEX<120 AND MOUSEY>40 AND MOUSEY<60 THEN
  101.     BOUNDARY 1
  102.     check#=1
  103.     REPEAT
  104.       PAUSE 5
  105.       CLS
  106.       BOX 10,10,30,290
  107.       BOX 50,10,70,290
  108.       FOR x#=2 TO 15
  109.         DRAW 10,10+(x#-1)*20 TO 30,10+(x#-1)*20
  110.         TEXT 13,(10+(x#-1)*20)-3,x#
  111.         DEFFILL 1,2,muster#(x#)
  112.         PBOX 50,(10+(x#-1)*20)-20,70,10+(x#-1)*20
  113.         TEXT 36,10+(x#-1)*20-3,"="
  114.       NEXT x#
  115.       DEFTEXT 1,0,900
  116.       TEXT 25,340,"INDEX:"
  117.       TEXT 65,348,"MUSTER:"
  118.       DEFTEXT 1,0,0
  119.       BOX 100,50,150,70
  120.       TEXT 103,67,"LADEN"
  121.       BOX 100,80,160,100
  122.       TEXT 103,97,"SICHERN"
  123.       check3#=0
  124.       REPEAT
  125.       UNTIL MOUSEK=0
  126.       REPEAT
  127.       UNTIL MOUSEK<>0
  128.       IF MOUSEK=1 AND MOUSEX>100 AND MOUSEX<150 AND MOUSEY>50 AND MOUSEY<70 AND check3#=0 THEN
  129.         check3#=1
  130.         FILESELECT "A:\*.PAL","",pal$
  131.         IF pal$<>"" THEN
  132.           OPEN "I",#1,pal$
  133.           FOR x#=2 TO 15
  134.             INPUT #1,muster#(x#)
  135.           NEXT x#
  136.           CLOSE #1
  137.         ENDIF
  138.       ENDIF
  139.       IF MOUSEK=1 AND MOUSEX>100 AND MOUSEX<160 AND MOUSEY>80 AND MOUSEY<100 AND check3#=0 THEN
  140.         check3#=1
  141.         FILESELECT "A:\*.PAL","",pal$
  142.         IF pal$<>"" THEN
  143.           OPEN "O",#1,pal$
  144.           FOR x#=2 TO 15
  145.             PRINT #1,muster#(x#)
  146.           NEXT x#
  147.           CLOSE #1
  148.         ENDIF
  149.       ENDIF
  150.       IF MOUSEK=1 AND MOUSEY>10 AND MOUSEY<290 AND MOUSEX<100 AND check3#=0 THEN
  151.         check3#=1
  152.         index#=INT((MOUSEY-10)/20)+2
  153.         CLS
  154.         REPEAT
  155.         UNTIL MOUSEK=0
  156.         FOR x#=2 TO 20
  157.           DEFFILL 1,2,x#-1
  158.           PBOX x#*30,10,x#*30+30,40
  159.         NEXT x#
  160.         zeile$="WÄHLEN SIE BITTE DAS MUSTER FÜR DEN INDEX "+STR$(index#)+" AUS"
  161.         TEXT 60,60,zeile$
  162.         REPEAT
  163.         UNTIL MOUSEK<>0
  164.         IF MOUSEK=1 AND MOUSEX>60 AND MOUSEX<630 THEN
  165.           muster#(index#)=INT(MOUSEX/30)-1
  166.         ENDIF
  167.       ENDIF
  168.     UNTIL MOUSEK=2
  169.     REPEAT
  170.     UNTIL MOUSEK=0
  171.   ENDIF
  172.   IF check#=0 AND MOUSEX>10 AND MOUSEX<120 AND MOUSEY>10 AND MOUSEY<30 THEN
  173.     SPUT screen2$
  174.     zeipunkt#=0
  175.     GRAPHMODE 1
  176.     FILESELECT "A:\*.CON","",nlb$
  177.     IF nlb$<>"" THEN
  178.       IF check2#=1 THEN
  179.         ERASE punkte#()
  180.       ENDIF
  181.       check2#=1
  182.       OPEN "I",#1,nlb$
  183.       INPUT #1,xachse#
  184.       INPUT #1,yachse#
  185.       DIM punkte#(xachse#,yachse#)
  186.       BOUNDARY 0
  187.       zeeler#=0
  188.       ALERT 2,"WIE SOLL DAS BILD|GEZEICHNET WERDEN",2,"KLEIN|GROß",kgb#
  189.       FOR xload#=0 TO xachse#
  190.         FOR yload#=0 TO yachse#
  191.           zeeler#=zeeler#+1
  192.           IF xload#>0 OR yload#>0 THEN
  193.             IF yload#=0 THEN
  194.               punkte#(xload#,yload#)=punkte#(xload#-1,yachse#)
  195.             ELSE
  196.               punkte#(xload#,yload#)=punkte#(xload#,yload#-1)
  197.             ENDIF
  198.           ENDIF
  199.           IF xload#=0 AND yload#=0 THEN
  200.             INPUT #1,punkte#(xload#,yload#)
  201.             INPUT #1,oberze#
  202.           ENDIF
  203.           IF zeeler#=oberze#+1 THEN
  204.             INPUT #1,punkte#(xload#,yload#)
  205.             INPUT #1,oberze#
  206.             zeeler#=1
  207.           ENDIF
  208.           IF punkte#(xload#,yload#)=0 THEN
  209.             DEFFILL 0
  210.           ENDIF
  211.           IF punkte#(xload#,yload#)=1 THEN
  212.             DEFFILL 1,1
  213.           ENDIF
  214.           IF punkte#(xload#,yload#)>1 THEN
  215.             DEFFILL 1,2,muster#(punkte#(xload#,yload#))
  216.           ENDIF
  217.           GRAPHMODE 1
  218.           IF kgb#=2 THEN
  219.             PBOX xload#*2,yload#*2,(xload#*2)+1,(yload#*2)+1
  220.           ELSE
  221.             PBOX xload#,yload#,xload#,yload#
  222.           ENDIF
  223.         NEXT yload#
  224.       NEXT xload#
  225.       CLOSE #1
  226.       GET 0,0,xachse#*2,yachse#*2,k_bild$
  227.       SPUT screen2$
  228.       GRAPHMODE 3
  229.       REPEAT
  230.         mx2#=MOUSEX
  231.         my2#=MOUSEY
  232.         PUT mx2#,my2#,k_bild$,6
  233.         REPEAT
  234.           testx#=MOUSEX
  235.           testy#=MOUSEY
  236.           EXIT IF MOUSEK=2
  237.         UNTIL testx#<>mx2# OR testy#<>my2# OR MOUSEK<>0
  238.         PUT mx2#,my2#,k_bild$,6
  239.       UNTIL MOUSEK=1 OR MOUSEK=2
  240.       GRAPHMODE 1
  241.       IF MOUSEK=1
  242.         PUT mx2#,my2#,k_bild$
  243.       ENDIF
  244.       GRAPHMODE 1
  245.       DEFMOUSE 0
  246.       DEFFILL 1
  247.       COLOR 1
  248.     ENDIF
  249.     SGET screen2$
  250.     REPEAT
  251.     UNTIL MOUSEK=0
  252.   ENDIF
  253. UNTIL MOUSEK=2
  254.